sub samcoupejfill(txpo as uinteger,typo as uinteger):
  asm
    ;call $0145
    end asm
  end sub

'$0145 - JFILL - Modes 3,4 only
